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Apple II Troubleshooting Guide 


We have just received a new book from Howard Sams: Apple 
II+/IIe Troubleshooting & Repair Guide, by Robert C. Brenner. 
At a glance, it looks like quite a good introduction to the 
Apple hardware and its potential problems. The first chapter 
is Basic Troubleshooting, followed by three chapters on 
Description, Operations, and Specific Troubleshooting for the 
II Plus, three more similar chapters on the //e, and two 
chapters on Preventive Maintenance and Advanced Trouble- 
shooting. Here's a quote from the Introduction: 


This book is a detailed troubleshooting and repair 
document. It is not a treatise on basic computer theory or 
a discussion of chip operation, registers, busses, and 
logic gates. It is an all “meat and potatoes" manual] to 
enable the computer user to repair his or her own machine 
in those 95 percent of circumstances where knowledge and a 
good reference are enough to find and repair a failure. 


List price of the Troubleshooting & Repair Guide is $19.95. 
Our price will be $18 + shipping. 


18-Digit Arithmetic, Part 7....cccccceeeeeeBOD Sander—Cecder == 
Last month we began the implementation of math functions, sc -:: 
seems appropriate to continue in the same direction. Tris 
month we will reveal the LOG and EXP functions. 


As always, I turned to “Computer Approximations” for some scoc 
algorithms. I mentioned this book last month, and severai oz 
you have tried to find copies. 


Thanks to Trey Johnson, of Monolith Inc. in San Antonio, for 
the following information: John Wiley & Sons stopped 
publishing the book “Computer Approximations" in 1977. They 
sold the rights to Krieger Publishing Co., and it is now beirs 
published under the same title. Trey was quoted a price of 
$22.50 + shipping. Krieger's address is P. O. Box 9542, 
Melbourne, FL 32901; phone is (305) 724-9542. 


“Computer Approximations” is the only book I have found which 
lists all the actual coefficients needed to produce good 
approximations for the whole variety of standard functions. 
Pages 189-339 are packed solid with nothing by numbers. For 
example, there are ten pages of numbers for the EXP function 
alone, providing over 100 different approximation formulas for 
the EXP function. The chapter covering EXP describes the math 
behind the approximations. You pick an algorithm according to 
the precision you need, the number base you are using (2, 10, 
or whatever), the tradeoff between speed and size, and the 
range of arguments you will be using. Each algorithm in the 
book has a number, and I indicate that number in the comments 
to the programs which follow. 


Almost all of the approximations involve these steps: 


SIFT: Check the argument for legal range and 

easy arguments. 

FOLD: Reduce the range of the argument. 

POLY: Use a polynomial or a ratio of polynomials 
to approximate the function in the reduced 
range. 

UNFOLD: Expand the result by the reverse of the 
processes used to reduce the range. 


When we first learned about logarithms in high school, we used 
tables in books. One set of tables converted normal numbers to 
logs, and the other converted logs back to normal numbers. The 
LOG function takes the place of the first set of tables, and 
the EXP function replaces the second. By the way, those high 
school logarithms were base 10 logs. The log of a number is 
the power to which you would have to raise 10 to equal the 
number. For example, the log base 10 of 1000 is 3; of the 
square root of 10 is .5. 


Scientists prefer base “e" logs. "“e” is an irrational number 
(as is pi) approximately equal to 2.71828182845904523536. Dia 
the original scientists have 2.718281828... fingers? Maybe, if 
they had to chop firewood (logs?)! Anyway, EXP and LOG in 
Applesoft work with base e. LOG tells you to what power you 
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S-C Macro Assembler VerBion lO. cccccccscccccccscccscsccscceccccesec se $80 
S-C Macro Assembler Version 5 ee ee ee ee eee er ere a1 
Version 1.1 UDGACG oi. 06 S666 oie 6686 50 5s seh so wa we eee oles OU 
Source Code for Version 1.1 (on two disk SideB) ...cccccccccccceccesee sll 
Full Screen Editor for S-C Macro (with complete source code) .......2.-$49 
S-C Cross Reference Utility (without source code)...cccccccccsccccceces20 
S-C Cross Reference Utility (with complete source code) .....ccccccceeeSD0 
DISASM Dis-Assembler CRAK “Wal €) ins6 os 6.664 OS Ao 556-5094 44 ASO ES SSeS SIO 
Source Code for DISASHA 6 :o:d0:u 6:0 0+ 04 580645 0060 e608 woes eee so Baaitional $30 


S-C Word Processor (with complete SOUrCE COdE)...ccccccccscccccscceees SIO 
Double Precision Floating Point for Applesoft (with source code)......$50 
S-C Documentor (complete commented source code of Applesoft ROMs).....$50 
Source Code of //e Cx & F8 ROMs on OL BK 6-5 66 6 660.66 664 468 eee eee ee SLD 


(All source code is formatted for S-C Macro Assembler Version 1.1. Other 
assemblers require some effort to convert file type and edit directives.) 


AAL Quarterly DISK Obs 6 de iwi 656.06 666046 w5E6 G6 OOS 60s S60 boo POen $15 

Each disk contains all the source code from three issues of “Apple 
Assembly Line", to save you lots of typing and testing time. 
QD#1: Oct-Dec 1980 QD#2: Jan-Mar 198] QD#3: Apr-Jun 1981 
QD#4: Jul-Sep 1981 QD#5: Oct-Dec 198] QD#6: Jan-Mar 1982 
QD#7: Apr-Jun 1982 QD#8: Jul-Sep 1982 QD#9: Oct-Dec 1982 
QD#10: Jan-Mar 1983 QD#11: Apr-Jun 1983 QD#12: Jul-Sep 1983 
QD#13: Oct-Dec 1983 QD#14: Jan-Mar 1984 QD#15: Apr-Jun 1984 
QD#16: Jul-Sep 1984 


AWIIe Toolkit (Don Lancaster, SynergeticsS) ...ccccccccvcccscccccscccssee gad 
Quick-Trace (Anthro-Digital)..........eCLOSEOUT SPECIAL!..(reg. $50) f££%3 $35 
Visible Computer: 6502 (Software Masters) ...cccccscccccccee- (reg. $50) $45 
ES-CAPE: Extended S-C Applesoft Program Editor... ccccccccccccccccceee 900 
"Bag of Tricks", Worth & Lechner, with diskette.......ceeee+ ($39.95) $36 


Blank Diskettes (Verbatim) .........62..2.-25 each, or package of 20 for $40 
(Premium quality, single-sided, double density, with hub rings) 

Vinyl disk pages, 6"x8.5", hold two disks each...ccccccccccseceeeelO for $6 
Diskette Mailing Protectors (hold 1 or 2 disks) ........e+.+e.40 cents each 

or $25 per 100 

These are cardboard folders designed to fit into 6"X9" Envelopes. 

Envelopes for Diskette MailerB...cccccccceccccccccccscccesee 6 Cents each 
QuikLoader EPROM System (SCRG) ses 66d eS 0664S SSW eee eee LOLI) $170 
D MAnual Controller (SCRG)...ccccccccccecccscceccscceccccccsesesee (990) $85 
Switch-a-Slot (SCRE) ge8 666654 6664 Woe W 5 Oo ose deen se (SLIO) $175 
Extend-a-Slot CSCRG) ss3.o 6 G66 406% 660.65 666 We 0 05844 eaee eee aw 650) $32 


Books, BOOKS, BOOKS... .cccccccccccccccccceseecompare Our discount prices! 


"Apple II+/IIe Troubleshooting & Repair Guide", Brenner.($19.95) $18 
“Apple J{ Circuit Description", Gayler..cwcccrecsccccccce ($22.95) $21 
“Understanding the Apple II", Sather... .cccccccccccccccee ($220.99) $21 
"Enhancing Your Apple II, vol. 1", Lancaster.....eeeeeee($15.95) $15 
Second edition, with //e information. 
“Assembly Cookbook for the Apple II/IIe", Lancaster.....($21.95) $20 
"Incredible Secret Money Machine", Lancaster...cceccscccee ($7.95) $7 
"Beneath Apple DOS", Worth & LeEChNer..ccccccccccccsceces (919-95) $18 
"Beneath Apple ProDOS", Worth & LeChner...cccccccccscvee (919.95) $18 
“What's Where in the Apple”, Second Edition....cccecceeee ($19.95) $19 
"6502 Assembly Language Programming", Leventhal.........($18.95) $18 
"6502 Subroutines", Leventhal...cr.cccccccccccccsccccccsee(9i8.95) $18 
"Real Time Programming -- Neglected Topics", Foster...... ($9.95) $9 
"Microcomputer GraphicS", MYErB..creccccccccccccccccccse(Siz.99) $12 


We have small quantities of other great books, call for titles & prices. 
Add $1.50 per book for US shipping. Foreign orders add postage needed. 


Texas residents please add 6 1/8 % sales tax to all orders. 


*&# S-C SOFTWARE, P. O. BOX 280300, Dallas, TX 75228 *** 
bl (214) 324-2050 wet 
*** We accept Master Card, VISA and American Express *** 
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would raise e to equal the argument, and EXP raises e to the 
power of the argument. 


One great application of LOG and EXP is to raise any number to 
any power. Applesoft (as well as DP18) has an exponentiation 

operator """ for this purpose, but the code inside does it by 

Calling on EXP and LOG. Here are some mathematical symbols to 
indicate how it is done: 


let z= x y 
then log z = log (xy) 
log z = y log x 
) = exp (y log x) 


exp (log z 
xy = exp (y log x) 


Here is the code for the exponentiation operator in DP18: 


a ae ne a a nae eS ee 
* EXPONENTIATION: X * Y 

* (DAC) = Y 

* (ARG) = X 

DP. POWER | 


JSR MOVE.DAC.TEMP3 SAVE DAC (POWER) IN TEMP3 
JSR SWAP.ARG.DAC 


JSR DP.LOG10 GET LOG X 
JSR MOVE.TEMP3 .ARG GET Y IN ARG 
JSR DMULT Y LOG X 

JMP DP.EXP10 x ~ ¥ 


Notice I used base 10 log and exp? That is because DP18 is 
basically decimal. In a binary floating point scheme such as 
is internal to Applesoft, base 2 log and exp would probably be 
used. After all, floating point notation is a kind of half-log 
half-normal notation. 


Which leads to the topic of converting from one logarithmic 
base to another. If my internal subroutines work in base 10, 
how do I get LOG and EXP to base e? Some more math is due: 


suppose e“x = 10°y 

then loglO0 (e°x) = loglO (10"y) 
x logl0(e) = y 1logl0(10) 
x loglO(e) = y 


Logl0(e) is a constant, approximately 0.43429448190325182765. 
So if I want to know what EXP(3) is, I can first get 3*1logl0(e) 
= 1.302..., and 10°1.302... = 20.0855... 


EXP Function 

Lines 1640-1660 of the program check for a zero argument, which 
is an easy case: e°0 = 1. Lines 1670-1700 multiply the 
argument by logl0(e), so that EXP10 can be used. 

Lines 1730-1740 again sift out the easy case of 10°0, 15 case 


DP.EXP10 was called directly. 


Page 4....Apple Assembly Line....November, 1984....Copyright (Cc; 5-< SCH TWARE 


Lines 1750-1790 begin the folding process. We can cut. the 
range in half by folding all negative arguments on top to the 
positive range: EXP(-x) = 1/EXP(x). 


Lines 1810,1820 further sift, by eliminating arguments larger 
than 99. If the exponent of the argument is $43 or more, then 
the argument is 100 or more. Arguments that large are too 
large. (Indeed, any argument above 63 is too large.) The 
Applesoft ROM routine for OVERFLOW ERROR will let you know you 
tried it. 


The arguments we have left will be in the range 0 < x < 100. 

We can further subdivide the range by separating the integer 
and fractional parts of the argument. Remember that 10”(xty) = 
(10°x)*(10°y)? For illustration, suppose the argument is 3.75. 
Then 10°3.75 = 10°3 * 10°.75 = 5623.4132.... Lines 1830-2100 
perform the separation. The variable INTPWR will get the 
integer part, which may range from 0 to 99. The corresponding 
digits are zeroed in DAC, and the resulting fraction is 
re-normalized. If the fractional part is zero, then the log of 
the fractional part is 1; lines 2080-2100 sift out this special 
case. This section could be accomplished by using previously 
covered subroutines, such as DP.INT to get the integer part, 
and DSUB to get the fractional part. However, that would take 
considerably longer for only a slight savings in space. 


The active part of the argument has now been reduced to the 
range 0<x<l. The next adjustment will cut that in half. If 
the argument x<.5, this adjustment will be skipped. Lines 
2120-2160 perform the test, and line 2170 saves the result of 
the test on the stack. We need the result later when we are 
unfolding. If x >= .5, then lines 2190-2210 subtract .5 from 
it. If x = .5, then the result after subtraction will be zero. 
In this case, the correct answer is a known constant, the 
square root of 10. Lines 2230-2270 load up that value and skip 
over the POLY part on down to the UNFOLDing. If not exactly 
-5, we now have a folded argument in the range 0<x<.5, with a 
flag on the stack indicating whether or not we subtracted .5 to 
get there. Later, if we DID subtract .5, we will multiply the 
result of POLY by the square root of 10 to unfold the answer. 


We could have arbitrarily subtracted .5, changing the range 
from O<x<l to -.5<x<.5, with the same result. This would have 
saved the trouble of determining which side of .5 we were on, 
and of later deciding whether or not to multiply by SQR(10). 
However, it would also take longer for those cases already 
under .5, so I decided against it. 


The POLY part is lines 2280-2520. This is a ratio of two 
polynomials, both 8th degree. However, because of derivational 
and computational reasons, it is actually written and 
Calculated in a different form: 


Q(x"2) + xP(x~2) 


POLY(x) = wooo een--------- 
Q(x*2) - xP(x%2) 
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Lines 2290-2320 save x and compute x°2. Lines 2330-2380 call 
on POLY.N (covered last month) to compute the P polynomial, and 
then multiply the result by x. The ccxstants are given in 
lines 1440-1490. So that you see the form, I will give it here 
with the coefficients rounded off: 


xP = 31x°7 + 4562x°5 + 134331x°3 + 760254x 


Lines 2400-2430 compute the Q-polynomial, by calling POLY.1 
(also covered last month). POLY.1 is used when the coefficient 
of the highest degreed term is 1. We get, approximately, 


Q = x°8 + 477x°6 + 29732x°4 + 408437x°2 + 660349 


Lines 2440-2520 form the numerator and denominator and divide, 
giving us a very nice approximation to the function for the 
folded argument. 


Lines 2530-2590 begin the unfolding process, by multiplying by 
SQR(10) if we previously folded .5<x<l down to 0<x<.5. 


Lines 2600-2660 take care of the integral portion of the 
original argument, by adding it to the EXPONENT of the result 
so far. This is equivalent to multiplying by the integral 
power of ten, but much faster. Isn't base ten nice? 


The final adjustment is to take the reciprocal if the original 
argument was negative, done in lines 2670-2730. 


LOG Function 


The LOG function is the inverse of the EXP function. Now if we 
could just run the 6502 backwards.... 


Log base e is related to log base 10 the same way the exp 
functions were: 


loge x = loge(10) * logld (x) 


Lines 2990-3040 call on the LOG1O subroutine and then multiply 
the result by the log base e of 10. 


The LOG1O routine begins by sifting out the objectionable 
argument values, at lines 3100-3130. The argument MUST be 
positive, and MUST NOT be zero. Negative or zero arguments 
send you to Applesoft's ILLEGAL QUANTITY ERROR. 


Lines 3140-3170 separate the exponent from the mantissa of the 
argument. The exponent represents the power of 10 multiplier, 
so as an integer it can just be added to the logarithm of the 
mantissa viewed as a fraction. The exponent is saved in 
INTPWR, to be processed later. Stuffing $40 in its place in 
DAC makes the range now .1<=x<l. 


Lines 3180-3210 multiply the fraction by SQR(10), which changes 
the range to 
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erererern <= x < SQR(10) 
SQR (10) 


This can be compensated for later by subtracting .5 from the 
logarithm of the folded argument. 


Lines 3220 further thrash the argument by forming an 
intermediate argument z = (x-1)/(x+l). This value z will be in 
the range -.52 < z < +.52, which is a nice symmetrical value to 
run through a ratio of polynomials. I get lost in the math 
that motivates this step. 


The POLY part is again a ratio of two polynomials. Lines 
3330-3440 calculate the numerator, which is approximately 


-15z°1l1 + 3012°9 - 17262°7 + 40602°5 - 41922°3 + 15762 
The denominator, formed in lines 3450-3500, is approximately 
Z° 12-6827 10+764z° 8-3200z° 6461222" 4-54322°2+1815 


Dividing at line 3510 gives the logarithm of the value x. To 
unfold, we need to subtract .5, handled by lines 3860-3920. We 
also need to add as an integer the power of ten we saved in 
INTPWR. The latter is trickier, because we must convert a 
biased binary integer to a signed decimal floating point value. 


Lines 3530-3600 un-bias INTPWR. If the exponent happens to be 
exactly $40, which in un-biased terms is 0, the rest of this 
step can be skipped (because the log of 10°0 is zero, adding 
nothing). If not, it is time to build a DP18 value in ARG. 
Line 3570 saves the sign in ARG.SIGN. 


Lines 3610-3620 pre-clear ARG.HI, which is where we will be 
putting the one or two digits of INTPWR. Line 3630 assumes it 
will be a one-digit value, and lines 3640-3650 test that 
assumption. If it is one digit, lines 3730-3780 will shift the 
digit to the left nybble and store it in ARG.HI. If two 
digits, lines 3660 will divide by ten to get the high digit as 
quotient and low digit as remainder. Then lines 3730-3780 will 
merge the two digits into ARG.HI. 


Lines 3790-3840 complete the construction of ARG by storing the 
exponent and clearing the remaining mantissa bytes. Line 3850 
adds the value to the results of the POLY step, lines 3870-3920 
subtract .5, and the answer is ready. 


1010 Suenemnn nee nwe we neeewowowowoowe 

E8D5- 1020 AS.OVRFLW .EQ $E8D5 

E199- bh AS. ILLERR «EQ $E199 

FFFF- 1050 POLY.1 -EQ $FFFF 

FFFF- 1060 POLY.N -EQ $FFFF 

FFFF- 1070 DADD -EQ $FFFF 

FFFF- 1080 DSUB -EQ $FFFF 

FFFF- 1090 DMULT -EQ $FFFF 

FFFF- 1100 DDIV -EQ $FFFF 

FFFF- 1110 DP.TRUE -EQ $FFFF 

FFFF- 1120 MOVE.YA.ARG.1 .EQ $FFFF 
FFFF- +4nG MOVE.YA.DAC.1 -EQ $FFFF 
FFFF- 1140 SWAP.DAC.ARG .EQ $FFFF 
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1360 CON.ONE -HS 41.10000.00000.00000.00000 
1370 CON.1HALF .HS 40.50000.00000.00000.00000 
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1520 HS 43.47705.44030.08207 .98775 
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@ Absolutely, positively, totally 
PRO-DOS and DOS 3.3 
compatible. 

@ Time in hours, minutes, seconds 
and milliseconds (the ONLY PRO- 
DOS compatible card with 
millisecond capability). 

@ 24 hour military format or 12 hour 

att aCe RE Mg with AM/PM format. 

@ Date with year, month, day of week and leap year. 

@ The easiest programming in BASIC. 

@ Eight software controlled interrupts so you can run two programs at the 
same time (many examples are included). 

@ Compatible with ALL of Apple’s languages. Many sample programs for 
machine code, Applesoft, CP/M and Pascal on 2 disks. 

@ On-board timer lets you time any interval up to 48 days long down to the 
nearest millisecond. 

@ Rechargeable nickel-cadmium battery will last over 20 years. 

@ Two BSR/serial ports for future expansion. 


MemoryMaster Ile 128K RAM Card 

@ Expands your Apple Ile to 192K memory. 

@ Provides an 80 column text display. 

@ Compatible with all Apple Ile 80 column and extended 80 column card 
software (same physical size as Apple's 64K card). 

@ Can be used as a solid state disk drive to make your programs run up to 20 
times FASTER (the 64K configuration will act as half a drive). 

@ Permits your Ile to use the new double high resolution graphics. 

@ Automatically expands Visicalc to 95K storage in 80 columns! The 64K 
config. is all that’s needed, 128K can take you even higher. 

@ PRO-DOS will use the MemoryMaster Ile as a high speed disk drive. 

@ The 64K MemoryMaster Ile will automatically expand Apple Works to55K 
storage. The 128K MemoryMaster Ile will expand Apple Works to 101K 
storage. 

@ High Speed disk emulation for BASIC, Pascal and CP/M is available at a very 
low cost. NOT copy protected. 

@ Documentation included, we show you how to use all 192K. 

It vou already have Apple's 64 card justorder the SUEMORS SEASTER He with 64K and use the 

64K trom vour old board te ene vou a tell 128K |The noards fuels soc keted co wou smply plu 


a eee lk Memory Master lie with 128K $249 
Upgradeable MemoryMaster Ile with 64K $169 
Non-Upgradeable MemoryMaster Ile with 64K $149 


There used to be about a dozen 80 column cards for the Apple, now there's only ONE. 


@ TOTALLY Videx Compatible. 

@ 80 characters by 24 lines, with a sharp 7x9 dot matrix. 

@ Orboard 40/80 soft video switch with manual 40 column override. 

@ Fully compatible with ALL Apple languages and software—there are NO 
exceptions. 

@ Low power consumption through the use of CMOS devices. 

@ All connections are made with standard video connectors. 

@ Both upper and lower case characters are standard. 

@ All new design (using a new Microprocessor based C.R.T. controller) fora 
beautiful razor sharp display. 

@ The VIEWMASTER incorporates all the features of all other 80 column 

cards, plus many new improvements. 


@ Complete 16 voice music synthesizer on one card. Just plug it into your 
Apple, connect the audio cable (supplied) to your stereo, boot the disk 
supplied and you are ready to input and play songs. 

@ It's easy to program music with our compose software. You will start right 
away at inputting -your favorite songs. The Hi-Res screen shows what you 
have entered in standard sheet music format. 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 


Apple Peripherals Are All We Make 
That’s Why We’re So Good At It! 


THE NEW TIMEMASTER II H.O. 


VIEWMASTER 80 


SUPER MUSIC SYNTHESIZER - 


Our boards are far superior to most of the consumer electronics made today. AIlI.C.’s are in high quality sockets with mil-spec. components used throughout. P.C. boards are glass- 
epoxy with gold contacts. Made in America to be the best in the world. All products work in the APPLE WHE, II, 11+ and Franklin, The MemoryMaster Ile is Ile only. Applied Engineering 
also manufactures a full line of data ac quisition and control products for the Apple: A/D converters and digital I/O cards, etc. Please call for more information. Allour products are fully 
tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle THREE YEAR WARRANTY. 


Send Check or Money Order to: 
APPLIED ENGINEERING 


P.O. Box 798 
Carrollton, TX 75006 


Full emulation of all other clocks. Yes, we emulate Brand A, Brand T, Brand P, 
Brand C, Brand S and Brand M too. It’s easy for the H.O. to emulate other 
clocks, we just drop off features. That's why the H.O. can emulate others, but 
none of the others emulate us. 

The Timemaster I H.O. will automatically emulate the correct clock card for 
the software you're using. You can also give the H.O. a simple command to 
tell it which clock to emulate. This is great for writing programs for those poor 
unfortunates that bought some other clock card. 

Of course, most programs will use the Timemaster !I H.O. in its native mode, 
but its comforting to know that you can use programs written for other 
products without any modification. 


REMOTE CONTROL 

Our BSR X-10 interface option for the H.O. allows you to remotely control up 
to 16 lights and electrical appliances through your BSR X-10 home control 
system in your home or office. You're already wired because a BSR system 
sends its signals over regular 120 volt wiring. That means you can control any 
electrical device in your home or office without any additional wiring. 


PRICE $129.00 BSR Option $49.00 


Z-80 PLUS 


@ TOTALLY compatible with ALL 
CP/M software. 

@ The only Z-80 card with a special 
2K “CP/M detector’ chip. 

@ Fully compatible with microsoft 
disks (no pre-boot required). 

© Specifically designed for high 
speed operation in the Apple Ile 
(runs just as fast in the Il* and 
Franklin). 

@ Runs WORD STAR, dBASE i], COBOL-80, FORTRAN-80, 

PEACHTREE and ALL other CP/M software with no pre-boot. 

@ A semi-custom I.C. and low parts count allows the Z-80 Plus to fly thru 
CP/M programs at a very low power level. (We use the Z-80A at fast 
4MHZ,) 

@ Does EVERYTHING the other Z-80 boards do, plus Z-80 interrupts. 

Don’t confuse the Z-80 Plus with crude copies of the microsoft card. The Z-80 

Plus employs a much more sophisticated and reliable design. With the Z-80 

Plus you can access the largest body of software in existence. Two computers 

in one and the advantages of both, all at an unbelievably low price. 


PRICE $139.00 


emt Simei SERGE ORES SRN ORR SERGE dhe 
VIEWMASTER 159 YES VES YES YES VES VES vES VES 
St PRIERA MORE \O YS \O NO NO \O YES YES 
WIZARD80 MORE NO NO NO NO VIS SO YES YES 
VISIONSO MORE VES YES NO NO YES NO NO SO 
OMNIVISION MORE te) YES NO Ne) Te) SO v{S ves 
VIEWAVAKBO) | =—- MORE ves YES NO SO YES NO NO YES 
SMARTERAY MORE VES YES NO NO NO YES VES NO 
VIDEOTERAY MORE Ie) YES YES SO VES YES NO yes 


The VIEWMASTER 80 works with all 80 column applications including CP/M, 
Pascal, WordStar, Format Il, Easywriter, Apple Writer II, VisiCalc, and all 
others. The VIEWMASTER 80 is THE MOST compatible 80 column card you 
can buy at ANY price! 

Thousands SOLD at $179 NOW ONLY $159.00 


END MOCKINGBOREDOM 


@ Now with new improved software for the easiest and the fastest music 
input system available anywhere. 

@ We give you lots of software. In addition to Compose and Play programs, 2 
disks are filled with over 30 songs ready to play. 

@ Easy to program in Basic to generate complex sound effects. Now your 
games can have explosions, phaser zaps, train whistles, death cries. You 
name it, this card can do it. 

@ Four white noise generators which are great for sound effects. 

@ Plays music in true stereo as well as true discrete quadraphonic. 

@ Full control of attack, volume, decay, sustain and release. 

@ Our card will play notes from 30HZ to beyond human hearing. 

@ Automatic shutoff on power-up or if reset is pushed. 

@ Many many more features. 


PRICE $159.00 


Call (214) 492-2027 

8 a.m. to 11 p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 
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1600 Bsesesceseeceseteceseenccenccecs 
1590 DP.EXP. NULL . J 
O89E- AC FF FF 1600 JMP DP. TRUE EO = 10°70 = 1.0 
1610 DP. EXP. OVERFLOW 
O8A1=- 4C D5 E8 1620 JMP AS.OVRFLW 
1936 DP. EXPE 
gh 48 9g 08 U8a8 pa bee gprs 
O8A9- AQ 9 1670 LDA #CON.LOGE 
O8AB- AO 0 1680 LDY /CON.LOGE 
O8AD- 20 FF FF 1690 JSR MOVE.YA.ARG. 1 . 
O8B0- 20 FF FF 3 . JSR DMULT | CHANGE TO 10°X 
1720 DP.EXP10 J 
O8B3- AE 00 08 1730 X DAC. EXPONENT 1070 = 1 
O8Bb- FO £6 ~=1740 BEQ DP.EXP. NULL 
1790 #---HANDLE NEGATIVE POWERS------- 
08B8- AD 0B 08 17 0 LDA DAC. SIGN SAVE FOR 1/EXP IF NEGATIVE 
SE OB GR on HE BM essay SF CT 
= 1900 @---SPLIT INTEGER & FRACTION--~-- 
08C3- EO 4 1810 CPX ¢ N3 THREE OR MORE INTEGER DIGITS? 
08c5- BO DA 1820 BCS DP.EXP.OVERFLOW YES, OVERFLOW 
OBC? 49 00 1 30 LDA #0 . ALL FRACTIONAL 
cae al ne 
O8CE- 90 39 1330 BCC . ..NO INTEGRAL PART 
08D0- Ap 01 08 1870 LDA DAC.HI ...1 OR 2 DIGITS 
O8D3- 4A 1880 LSR 
O8D4- 4A 1890 LSR 
ee 
O8D7- 8D 19 08 1920 STA INTPWR 
O8DA- AD 01 08 1930 LDA DAC. HI 
OOO SD on 08 1350 nes alee 
O8E2- EO 41 1820 CPX #$41 ONE OR TWO DIGITS? 
O8E4- FO 14 1970 BEQ .2 ..eONE DIGIT INTEGER 
O8E6- AD 19 08 1980 LDA INTPWR  DIGIT#10 
ie nS 
SHEE 4 19 08.2010 Taree 
OREF- ep 01 08 2030 ADC DAC.HI 
O8F2- 8D 19 08 200 STA INTPWR 
OREOT AZ 09 0g 2070 Ste PAC. HI 
O8FA- 20 PY FF 2070 .2 JSR NORMALIZE.DAC ADJUST REMAINING FRACTION 
O8FD- DO 2080 BNE . FRACTION NOT 0 
O8FF- 20 FF FF 2090 JSR DP. TRUE 10°70 = 1 
0902- 4c 78 09 2100 


JMP .7 
2110 #---ADJUST FRACTION SO < .5------ 
0905- AD 00 08 2120 .3 LDA DAC .EXPONENT 


0908- C9 40 ~=—s_- 2130 CMP #$40 

090A- 90 05 _—s 2180 BCC 

090C- AD 01 08 2150 LDA DAC HI 

O90F- C9 50 2160 CM 

0911- 0 2170 .4 PHP REMEMBER... 
0912- 90 15 2180 BCC . »» ALREADY < .5 
0914- £9 50 2190 SBC #$50 

0916- 8D 01 08 2200 STA DAC. HI 

0919- 20 FF FF 2210 JSR NORMALIZE.DAC 

091C- DQ OB 2220 BNE .5 ..REST OF FRACTION NOT 0 
091E- 2230 PLA POP SAVED STATUS 
O91F- A9 30 = 22 LDA #CON.SQR10 

0921- AO 08 2250 LDY /CON.SQR10 

0923- 20 FF FF 2260 JSR MOVE. YA.DAC. 1 


0926- AC 78 09 $F78 o__—coublite’ 107. xxXxx------------= 
5 JSR MOVE.DAC.TEMP1 SAVE X 


2 
- 20 FF FF 5580 JSR MOVE.DAC. ARG 


0 
092F- 20 FF FF 2310 JSR DMULT GET X“2 

0932- 20 FF FF 2320 JSR MOVE.DAC. TEMP2 SAVE X"2, 
0935=- AQ 3B 2330 LDA #P.EXP COMPUTE P(X*2) 
0937—- AO 08 2340 LDY /P.EXP 

0939=- A2 03 2350 LDX #P.EXP.N 
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Apple Assembly Line... 


WON GW] = 0 
oul f£fw Fow 


HEN OnhW hwo 


ew 
eu) 
UT at) = ot OU = BWW) HON WI WW) Qantas 
“ON =O) ov! 


UID Ul as OO =) 9 2s O-~QUINIG OE JIO OO OL 


= ON 
—_~] 
oO 


28 30 
2840 
2850 


2860 


8 


2900 


COMPUTE XP(X*2) 


SAVE XP(X"2) 
COMPUTE Q(X 2) 


POLY.N 
MOVE. TEMP1.ARG 


DMUL 

MOVE .DAC.TEMP3 
LDA #Q.EXP 

LDY /Q.EXP 

at EXP.N 


OLY. 1 
MOVE. DAC. TEMP2 
MOVE. TEMP3.ARG 
DADD 
MOVE .DAC.TEMP1 
MOVE. TEMP2.ARG 


SH GCE oa 
= Wt 
Q(X 2) 4XP (X73) 
SAVE UMERATO 
DENOMINATOR = Q-XP 
MOVE. TEMP3.DAC 
R Q(x” ay 2) 
MOVE. TEMP1.ARG TO" oXXX = 
DDIV 


BY SQR(10)------------ 
PLP SEE IF ADJUSTMENT NEEDED 


om f eee 
#CON .SQR10 
/CON .SQR10 
MOVE. YA. ARG. 1 
JSR_DM 

ee POWER----------- 

DAC . EXPONENT 
C INTPWR 

~«eNO OVERFLOW 

DP. EXP. OVERFLOW 
STA Oa - EXPONENT 
SIGN GET ORIGINAL SIGN 

9 POSITIVE, WE ARE DONE 
#CON . ONE NEGATIVE, FORM RECIPROCAL 
Y /CON.ONE 

MOVE. YA. ARG. 1 

DDIV 
Oa eee eeaweeeneecess 
ad “LN (DAC) LOG E (DAC) 
® OR LOG 10 (DAC) 
: #2330 IN HART, ET AL 
P 
P 


-EQ # 


HS C2. 14933.41871.23101. 49868 
eHS 43.30132.34734. 14748. 46138 
HS C4. 17255. 36265 .00653 . 03387 
oHS 44, 40598. 33123 .94476.21513 
HS C4.41923 .45602.07081.07911 


“HS 3 4H, 15764. 33484. 51127 .69255 


- LOG 
8 5 EQ 6 


Q. LOG.N 


-HS C2.67696.41190 .46224, 52758 


-November, 1984... 


2910 HS 43.76357.00230.09155.79877 


2920 ~HS C4. 32000. 87986. 36664. 12225 


2930 HS 44.61216 .00041 .77468. 78069 


UVIW COlPM —OoOo VWwY 


29 40 eHS C4.543 15 .94950.92575.25735 


Ff NOs Y= =NO 70M 


NO at COUNAAOD £40 NO @UIOWNO [D-JUIN) OV 
CAR) = 
Wo 


© 
> 
© 
© 
( 

o~ 

> a | 

CONN = WIE UIA O OWN) OMI 1-2 OO) 


S820 2 HS 44, 18149. 36120. 766 16. 30282 


=) 

> 

ah 

50] 

L] 

wi 

co 
Eun 
55003 
oO 
LC) 


OA26- 20 36 OA 3000 JSR DP.LOG10 
OA29—- AQ 1B 010 LDA #CON.LN10 CONVERT LOG10 TO LN 
OA2B- AO OA 020 LDY /CON.LN10 
OA2D- 20 FF FF 3030 JSR MOVE. YA. ARG. 1 
OA30- 4C FF FF 7 : JMP DMULT 
060 DP.LOG.ERR 
0A33- 4C 99 £1 40 9 AS. ILLERR 
090 DP.LOG10 
OA36- AD OB 08 3100 LDA DAC.SIGN CHECK RANGE 
OA39=- 30 F8 110 BMI DP.LOG.ERR .o. NEGATIVE 
OA3B- AD 09 08 3120 LDA DAC. EXPONENT 
OA3E- FO F3 130 BEQ DP.LOG. «ee ZERO 
OA4O- 8D 19 08 3140 STA INTPWR SAVE POWER OF 10 
3150 #---ADJUST RANGEwm----------- ee 
OAN3=- AQ 40 3160 LDA ; MAKE FRACTION .1 TO .9999 
OA45- 8D 00 08 ue STA DAC. EXPONENT 
OA48- AX 30 3] 0 LDA #CON.SQR10 1/SQR(10) ... SQR(10) 
OA4A- AO 08 190 LDY /CON.SQR10 
Ohire 20 FE EE 3310 38h DMULT no 
220 *—-— FORM SR yy (Xe ———————— 
OA52=- 20 FF FF 330 JSR MOVE. DAC. TEMP1 
OA55= 20 FF FF 32 JSR MOVE.DAC.ARG 
OA58- 20 FF FF 3250 JSR DP.TRUE GET 1 IN DAC 
OA5B- 20 FF FF 3260 JSR DSUB 
OASE- 20 FF FF 3270 JSR MOVE.DAC. TEMP2 SAVE IT 
OA61= 20 FF FF 3280 JSR DP.TRUE GET 1 IN DAC 
OA64—- 20 FF FF 3290 JSR MOVE. TEMP1.ARG 
OA67=- 20 FF FF 3300 JSR DADD + 
OA6A- 20 FF FF 3310 JSR MOVE. TEMP2.ARG 
OA6D- 20 FF FF 3320 JSR DDIV X-1/X+1 
30 e-a-MUMERATOR = Z#P(Z°2)--------- 
OA7T0= 20 FF FF 3300 JSR MOVE.DAC.TEMP1 SAVE IT 
Sue BE ag SERGE Cane 
BE ae PP aeRO pec srmee ahve 2 
OA7E- AO 09 330 LDY /P.LOG 
OA80- A2 0 0 LDX #P.LOG.N 
OA82=- 20 FF FF 3410 JSR POLY.N 
OA85~ 20 FF FF 3420 JSR MOVE. TEMP1.ARG 
OA88~ 20 FF FF 130 JSR DMULT Z#P(Z~2) 
OA8B- 20 FF FF 34 JSR MOVE.DAC. ole 
129 S-—-DENOMINATOR = Q(Z 2) --------- 
OA8E- AQ DO 460 LDA #Q. LOG 
OA90—- AO 09 470 Y /Q.LOG 
OA92—- A2 480 (Dy 3 #Q.LOG.N 


Page 12....Apple Assembly Line....November, 1984....Copyright (C) S-C SOFTWARE 


JSR POLY. 1 
JSR MOVE. TEMP1.ARG . : 
JSR DDIV Z#P(Z°2)/Q(Z%2) 


LDA INTPWR GET POWER OF 10 


SBC #$40 
. »+.0, NO NEED TO ADD ANYTHING 
570 STA ARG.SIGN 


oO 
=> 
WO 
~J 
1 
N 
© 
wy 
vz] 
ay 
vx} 
AN EWN 
Oooo CO008 


=) 
> 
ve) 
2) 
8 
at 
wo 
© 
fe) 
WU) 


eee | TO 63 
MAKE IT POSITIVE 


1 eee 
19:7 263 
STORE REMAINDER 


INC. QUOTIENT 

eee IRY ANOTHER SUBTRACTION 
CORRECT QUOTIENT 

GET QUOTIENT 

LEFT JUSTIFY 


D OD 08 0 .2 STA ARG.HI 


0 ORA ARG.HI MERGE WITH NEXT DIGIT 

0 STA ARG.HI 

90 STX ARG.EXPONENT $41 OR $42 
f LEAR REST OF ARG 


# 
20 .4 STA ARG.HI,X 


24 
JSR DADD 

05 LDA #CON. 1HALF 
LDY /CON. 1HALF 
JSR MOVE.YA.ARG. 1 


OAD5- 9D OD 08 


gd 
5S 
| 
go-Q 
Or 
3] 
> 
WWW LIWILWIW) 
QUI Fu) 
oooco 
z 
= 


WOv.0r10 Coe 
8S 


oo 
Eats 
“IU 
ie | 
Cot 
cro 
33 
vay Co 
WIL) 
NAO 
Oooo 
4 
> 
= 
& 
2 


JMP DADD 


Now you can monitor and control the world (or at least your part of it) with a little help from 


APPLIED ENGINEERING 


12 BIT, 16 CHANNEL, 
PROGRAMMABLE GAIN A/D 
All new 1984 design incorporates the 
latest in state-of-art I.C. technologies. 
Complete 12 bit A/D converter, withan 
accuracy of 0.02%! 

16 single ended channels (single ended 
means that your signals are measured 
against the Apple’s GND.) or 8 
differential channels, Most all the 
signals you will measure are single 
ended. : 

9 software programmable full scale 
ranges, any of the 16 channels can have 
any range at any time. Under program 
control, you can select any of the 
following ranges: +10 volts, +5V, 
+2.5V, £1.0V, +SOOMV, +2S0MV, 
+100MV, +50MYV, or +25MV. 

Very fast conversion (25 micro seconds). 
Analog input resistance greater than 
1,000,000 ohms. 

Laser-trimmed scaling resistors. 

Low power consumption through the 
use of CMOS devices. 

The user connector has +12 and -12 
volts on it so you can power your 
sensors. 

Only elementary programming is 
required to use the A/D. 

The entire system is on one standard 
size plug in card that fits neatly inside 
the Apple. 

System includes sample programs on 


disk. PRICE $319 


8 BIT, 8 CHANNEL A/D 
8 Channels 
8 Bit Resolution 
On Board Memory 


Fast Conversion (.078 ms per channel) , 


A/D Process Totally Transparent to 
Apple (looks like memory) 


The APPLIED ENGINEERING A/D 
BOARD is an 8 bit, 8 channel, memory 
buffered, data acquisition system. It 
consists of an 8 bit A/D converter, an 8 
channel multiplexer and 8 x 8 random 
access memory. 


The analog to digital conversion takes 
place on a continuous, channel! 
sequencing basis. Data is automatically 
transferred to on board memory at the 
end of each conversion. No A/D 
converter could be easier to use. 

Our A/D board comes standard with 0, 
10V full scale inputs. These inputs can 
be changed by the user to 0, -10V, or 
-5V, +5V or other ranges as needed. 
The user connector has +12 and -12 
volts on it so you can power your 
sensors. 


@ Accuracy; 0.3% 
@ input Resistance: 20K Ohms Typ 


PRICE $129.00 


A few applications may include the monitoring of @ flow @ temperature ©® humidity 
e@ wind speed @ wind direction @ light intensity @ pressure © RPM @ soil moisture 


and many more. 


SIGNAL CONDITIONER 


Our 8 channel signal conditioner is designed for use with both our A/D converters. This 
board incorporates 8 F.E.T. op-amps, which allow almost any gain or offset. For example: an 
input signal that varies from 2.00 to 2.15 volts or a signal that varies from 0 to 50 mV can 
easily be converted to 0-10V output for the A/D. 


The signal conditioners outputs are a high quality 16 pin gold I.C. socket that matches the 
one on the A/D’s so a simple ribbon cable connects the two. The signal conditioner can be 
powered by your Apple or from an external supply. 


FEATURES 

@ 4.5” square for standard card cage and 4 mounting holes for standard mounting. The 
signal conditioner does not plug into the Apple, it can be located up to % mile away from 
the A/D. 

@ 22 pin.156 spacing edge card input connector (extra connectors are easily available ie. 
Radio Shach). 


@ Large bread board area. 


@ Full detailed schematic included. 
PRICE $79.00 


DIGITAL INPUT/OUTPUT BOARD 


@ Provides & buffered outputs to a @ Your inputs can be anything from high 
standard 16 pin socket for standard dip > speed logic to simple switches. 
ribbon cable connection. @ Very simple to program, just PEEK at the 
@ Power-up reset assures that all outputs data. 
are off when your Apple is turned on. @ Now, on one card, you can have 8 digital 
@ Features 8 inputs that can be driven Outputs and 8 digital inputs each with its 
from TTL logic or any 5 volt source. own connector. The super input/output 
board is your best choice for any control 
application. 
The SUPER INPUT/OUTPUT board manual includes many programs for inputs and outputs. 
A detailed schematic is included. 
Some applications include: 
Burglar alarm, direction sensing, use with relays to tum on lights, sound buzzers, start 
motors, control tape recorders and printers, use with digital joystick. PRICE $69.00 


Please see our other full page ad in this magazine for information on Applied Engineering's Timemaster Clock Card and other products for the Apple. 
Our boards are far superior to most of the consumer electronics made today. All I.C.’s are in high quality sockets with mil-spec. components used throughout P.C. boards are glass-epoxy 
with gold contacts. Made in America to be the best in the world. All products compatible with Apple II and //e. 


Applied Engineering's products are fully tested with complete documentation and available for immediate delivery. All products are guaranteed with a no hassle three year warranty. 


Texas Residents Add 5% Sales Tax 
Add $10.00 If Outside U.S.A. 


Send Check or Money Order to: 
APPLIED ENGINEERING 
P.O. Box 798 
Carroliton, TX 75006 


Cali (214) 492-2027 
7 am. to 11 p.m. 7 days a week 
MasterCard, Visa & C.0.D. Welcome 
No extra charge for credit cards 
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S-C Macro Assembler Version 2.0..-.cccccccceseeeeeeBill Morgan 


We are now accepting orders for the upgrade to S-C Macro 
Assembler Version 2.0. Here is a summary of the new features: 


Oo The big news, of course, is the ability to assemble 65C02, 
65802, and 65816 opcodes. The new .OP directive switches 
between the 6502, Sweet-16, 65C02, and 65816 opcode sets. 


o All screen output now passes through one driver routine, 
which will be much easier to modify for other displays. 
Drivers are included for 40-column, //e and //c 80-column, 


o Typing a Control-C at the command prompt (:) emits CATALOG, 
leaving the cursor at the end of the line, to add slot and 
Grive specifiers if needed. 


o There is a sort of Auto-SAVE function. Once you have created 
a comment line near the beginning of your source file 
containing the phrase "SAVE filename“, typing ESC-S will emit 
that phrase and position the cursor at the end, so you can 
add a suffix or just press RETURN. 


o The COPY command asks "DELETE ORIGINAL?" If you type "“"Y", 
the effect will be that of a MOVE command. 


o The tape LOAD and SAVE commands have been removed, to make 
room for new features. 


o All operand expressions are calculated to 32 bits and .DA 
data values may be larger, to allow for the 65816's extended 
addressing capabilities. 


o You can force Zero Page or Absolute addressing modes by 
prefixing the operand with < or >. 


© Operand expressions may include bitwise logical operations. 
& ! (or |), and ~ are AND, OR, and EOR. 


o Control-S functions as a case lock key, toggling upper/lower 
case entry. 


o The .BS directive allows you to specify the value of the fill 
byte generated. This directive now creates fill bytes in 
assemblies into memory, rather than to disk only. 


o The assembler tests for the “/" command character, to 
simplify use of the Laumer Research Full Screen Editor. 


o All object code bytes are vectored through a standard 
location, so you can intercept the assembler's output for 
special purposes. 


Registered owners of S-C Macro Assembler will be able to 
purchase the upgrade to Version 2.0 for only $20.00. Just send 
us a check or charge card number, and you will be among the 
first to have the new version. 
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Convert Two Decimal Digits to Binary.......Bob Sander-Cederlof 


I have recently been running into more and more uses for the 
decimal mode in the 6502. In the decimal mode, each byte 
contains a value from 0 to 99, with the ten's digit in the left 
nybble and the units digit in the right nybble. 


The 6502 has built-in capability to add and subtract values in 
this format, with automatic carry when a nybble exceeds 9. If 
you have been following my series on 18-digit arithmetic, you 
have seen a lot of examples of its use. 


A frequent problem that arises is conversion between the 
decimal form and the binary form of a number. I suppose I have 
written ten million different programs to do this kind of 
conversion, on at least a thousand different kinds of 
computers! (Ever notice that my exaggerations are always in 
decimal?) 


For a small (byte-size) example, suppose a byte contains two 
decimal digits ($00-$99) and you want to convert it to binary 
($00-$63). The first step is to separate the two digits into 
two different variables. The the ten's digit should be 
multiplied by ten, and the unit's digit added. 


Lines 1390-1510 in the listing perform these steps, but there 

are a few tricks. Lines 1410-1420 strip out the unit's digit 

and save it in LOW, and lines 1440-1450 save the high digit in 
HIGH. Notice that I did not shift the high digit down, so it 

is really the ten's digit times 16 (call it "“tens¥*l6"). 


Lines 1460-1500 multiply the tens*l16 by 10/16. Then line 1500 
adds the unit's digit. 


The program in lines 1010-1190 is a test driver, which calls 
the DEC.HEX.2 routine 100 times with successive values in the 
A-register between $00 and $99. DEC.HEX.2 returns with the 
converted value ($00-$63 in the A-register, and the test driver 
prints out the value. If everything is okay, the hexadecimal 
numbers from $00 through $63 will be displayed. 


DEC.HEX.2 aS written takes 18 bytes plus two variables in page 
zero. If the variables are not in page zero, the program will 
take an additional four bytes. 


A faster program which takes only a few more bytes, and does 
not use any variables in RAM other than the stack, is shown in 
lines 1200-1340. Lines 1220-1260 convert the ten's digit into 
an index 0-9 in the X-register. Line 1270 retrieves the 
Original number from the stack. Lines 1290-1300 add a value 
from the table, indexed by the ten's digit, giving a total 
which is the converted number. 


The values in the table consist of one byte each, having 
selected so that they subtract out the hexadecimal value of the 
ten's digit and add back the value of that digit-times-ten in 
binary. For example, if the original number was $58 (meaning 
decimal 58 in BCD storage format), we will add the value $E2 
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(which is 50-$50). $58+SE2 = $3A, which is the correct 
hexadecimal conversion. 


I recently worked on a consulting project which included a lot 
of mixed decimal and hexadecimal calculations. The project was 
implemented on a 6511 chip, which has only 192 bytes of RAM. 
That is total, including the stack! We also hada 4096 bytes of 
EPROM. The system operates in a real-time mode with relatively 
high-speed interrupts occurring. With these constraints, every 
routine had to be written to use the minimum amount of RAM and 
to be as fast as possible. A few extra bytes of code would be 
all right, because 4096 bytes of EPROM was more than enough. 

In situations like this, programs like the one in lines 
1200-1300 come in real handy. 


1000 #SAVE S.QUICK DEC-HEX 
0800- 49 00 »=s-«11020 Tf LDA #0 
O802- 85 00 1030 STA 0 
O80h- Ab OO, 1080.1 LDA 0 
0806- 2 8 1050 JSR DEC. HEX.2 
0809- 20 DA FD 1060 ISR $FDDA 
O80C- 49 AO 1070 LDA #* " 
O80E- 20 ED FD 1080 JSR SFDED 
0811- 20 ED FD 1090 JSR $FDED 
0814- F8 1100 SED 
0815- 18 1110 CLC 
oc i 00 1120 LDA 
oH : ; 84 44nd Ape f 
1C- D 1150 CLD 
081D- C9 00 ~—- 1160 CMP #0 
OB1F- DO.B3 1170 BNE .1 
0821- 60 1180 RTS 
1100  Wesecetne ceessecccceccceesccicsus 
1200 DEC. HEX 
0822- 48 1210 PHA SAVE BYTE 
0823- 4A 1220 LSR 
OB2h- y 1230 LSR 
O825- 4A 12 LSR 
O826- 4A 1250 LSR 
O827- AA 1260 TAX HI NYBBLE TO X 
0826- 68 1270 GET ORIG BYTE 
0829- 18 1280 CLC 
O82 7D 2E 08 1290 ADC TBL,X 
O82D- 60 1300 RTS 
1210 eee se eee bance wcces 
ae 0 TBL DA #0-0, #10-$10, #20-$20, #30-$30 
OB 33: E8 E2 DC 1330 “DA aio th #50- £205380 £30-#3 
0835- D6 DO CA t fo “DA #70-$70,, #80-$80 , #90-$90 
01- 1360 LOW EQ 1 
02- 1370 HIGH +BQ 2 
1390 DECLEX.2 
0838- 48 1400 PHA 
0839- 29 OF 1410 AND #$0F SAVE LOW NYBBLE 
083B- 83 01 1420 STA LOW 
083D- 6 1430 PLA 
Os3E- 29 FO 14 AND #$FO GET HIGH NYBBLE 
OB0- B5 02 150 STA HIGH 
OB42- WA 1460 LSR /2 
0843- HA 1470 LSR 7h 
OB4k- 65 02 «18 ADC HIGH 74es 
OB46- KA 1490 LSR 7885 = #10/16 
O847- 65.01 1500 ADC LOW + LOW NYBBLE 
0849- 60 1510 RTS 
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CECECESEESESEEEEEEEEEEEEEEEEEEEESEEEEEEES 


FONT DOWNLOADER & EDITOR ($39.00) 

Turn your printer into a custom typesetter. Downloaded characters remain active while printer is powered. 
Use with any Word Processor program capable of sending ESC and control codes to printer. Switch back and 
forth easily between standard and custom fonts. All special printer functions (like expanded. compressed etc.) 
apply to custom fonts. Full HIRES screen editor lets you create your own characters and special graphics 
symbols. Compatible with many parallel printer |/F cards. User driver option provided. For Apple Il, ll+, //e. 
Specify printer: Apple Dot Matrix, C.ltoh 8510A (Prowriter), Epson FX 60/100, or OkiData 92/93. 


NEW ! ! ! The Font Downloader & Editor for the Apple Imagewriter Printer. For use with 
Apple II, il+, //e (with SuperSerial card) and the new Apple //c (with builtin serial interface). 


NEW !!! FONT LIBRARY DISKETTE #1 ($19.00) contains lots of user-contributed fonts for all 
printers supported by the Font Downloader & Editor. Specify printer with order. 


DISASM 2.2e - AN INTELLIGENT DISASSEMBLER ($30.00) 

Investigate the inner workings of machine language programs. DISASM converts machine code into meaningful, 
symbolic source. Creates s standard text file compatible with S-C, LISA, ToolKit and other assemblers. Handles 
data tables, displaced object code & even lets you substitute your own meaningful labels. (100 commonly used 
Monitor and Pg Zero names included.) An address-based triple cross reference table is provided to screen or 
printer. DISASM is an invaluable machine language learning aid to both novice & expert alike. Don Lancaster 
says DISASM is “absolutely essential” in his new ASSEMBLY COOKBOOK. For entire Apple Ii family including the 
new Apple //c (with all the new opcodes). SOURCE CODE available for an additional $30.00 


S-C Assembler (Ver 4.0 only) SUPPORT UTILITY PACKAGE ($30.00) 

" SC_.XREF - Generates a GLOBAL LABEL Cross Reference Table for complete documentation of source listings. 
* SC.GSR - Global Search & Replace eliminates teadious manual renaming of labels. Search all/part of source. 
* SC.TAB - Tabulates source files into neat, readable form. SOURCE CODE available for an additional $30.00 


The ‘PERFORMER’ CARD ($39.00) 

Plugs into any slot to convert a ‘dumb’ centronics-type printer I/F card into a ‘smart’ ona. Command menu 
eliminates need to remember complicated ESC codes. Features include perforation skip, auto page numbering 
with date & title. Includes large HIRES graphics & text screen dumps. Specify printer: MX-80 with 
Graftrax-60, MX-100, MX-80/100 with Graftraxplus, NEC 60972A, C.Itoh 6510 (Prowriter), OkiData 82A/83A 
with Okigraph & OkiDate 92/93. SOURCE CODE: $30.00 


FIRMWARE FOR APPLE-CAT: The ‘MIRROR’ ROM ($25.00) 

Communications ROM plugs directly into Novation's Apple-Cet Modem card. Basic modes: Dumb Terminal, 
Remote Console & Programmable Modem. Features include: selectable pulse or tone dialing, true dialtone 
detection, audible ring detect, ring-back, printer buffer, 80 col card & shift key mod support. Uses superset of 
Apple's Comm card and Micromodem || commands. SOURCE CODE: $50.00 


RAM/ROM DEVELOPMENT BOARD ($30.00) 
Plugs into any Apple slot. Holds one user-supplied 2Kx6 memory chip (6116 type RAM for program development 
or 2716 EPROM to keep your favorite routines on-line). Maps into $Cn00-CnFF and $C800-CFFF. 


NEW !!! C-PRINT For The APPLE //c ($99.00) 

Connect standard parallel printers to an Apple //c. C-PRINT is a hardware accessary that plugs into the 
standard Apple //c printer serial port. The other end plugs into any printer having a standard 56 pin 
centronics-type parallel connector. Just plug in and print! High speed data transfer at 9600 Baud. No need to 
reconfigure serial port or load software drivers for text printing. 


Avoid a $3.00 postsge/handling charge by enclosing full payment with order. (Mastercard & VISA excluded) 
RAK-WARE 41 Ralph Road W. Orange NJ 07052 (201) 325-1885 


SCEECEEEEEESEEEEEEEEEEEEEEEEEEEEEEEEEEE 
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A Whole Megabyte for your Apple //e........ Bob Sander-Cederlof 


Both Applied Engineering and Saturn have announced ] Mbyte 
cards for the //e. Saturn's, I understand, plugs into any slot 
1-7; this of course makes it a little non-standard compared to 
other //e memory expanders when it comes to software access. 


The new board from Applied Engineering, called RAM WORKS, fits 
in the //e auxiliary slot. You get 80 column text and double 
hi-res, with anywhere from 64K to 1 Megabyte of expansion RAM 
in 64K or 256K increments. You can buy RAM WORKS already 
expanded, or expand it yourself later. Prices: 64K = $179, 
128K = $249, 256K = $449, 512K = $799, and 1Meg = $1499. The 
first 512K fits one a normal size card, about 6 inches long. 
The second 512K come in a piggy-back card which attaches to the 
main card. Another option, an RGB video generator ($129), 
attaches to the front of the memory card. 


The megabyte is divided into 16 chapters of 64K each. You 
select which one is active by storing a value from $00 to SOF 
in a register at $C073. Then the normal //e maze of soft 
Switches lets you access the active chapter the same way you 
would access Apple's standard 64K card. 


RAM WORKS has some new design ideas, for which patents are 
pending, including a power saving circuit and a video refresh 
circuit. The latter eliminates the annoying screen flicker 
that normally occurs when you switch chapters with older 
expansion cards. 


Low cost software options available with RAM WORKS include disk 
emulation for DOS and ProDOS, and workspace expansion for 
Appleworks. Standard ProDOS will turn Apple's RAM card into a 
half-size RAMdisk, but with RAM WORKS you get a full megabyte! 


If you like the idea of souping up your //e, one of these 
boards plus a new 65802 processor may be just the ticket! 


Don Lancaster's AWilIe TOOLKIT 


Solve all of your Applewriter™ IIe hassles with these eight diskette sides 
crammed full of most-needed goodies including... 


Patches for NULL, shortline, IIc detrashing, full expansion 
Invisible and automatic microjustify and proportional space 
Complete, thorough, and fully commented disassembly script 
Detailed source code capturing instructions for custom mods 
Clear and useful answers to hundreds of most-asked questions 
Camera ready print quality secrets (like this ad, ferinstance) 
New and mind-blowing WPL routines you simply won't believe 
Self-Prompting (!) glossaries for Diablo, Epson, many others 
Includes a free "must have" bonus book and helpline service 


All this and bunches more for only $39.95. Everything is unlocked and 
unprotected. Order from SYNERGETICS, 746 First Street, Box 809-AAL, 
Thatcher, AZ, 85552. (602) 428-4073. VISA or MC accepted. 
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65816 NGWS sece6:o 60 Gos 60 oe 6.4. G0 0 eee DL Morgan 


Did you see the Infoworld article a few weeks ago (November 5 
issue) about the 65816? That story mentioned a plug-in board 
for the Apple II containing a 65816 processor and extra RAM. 
Well, I spoke today with Larry Hittel of Com Log, producers of 
that board, and it does sound very interesting. 


Com Log intended their board, the Applel6, to be a developers' 
tool, rather than a consumer item, or an Apple hot-rod device. 
They were therefore a little surprised and overwhelmed by the 
response to the Infoworld story: When I talked to Larry they 
had exactly one board in stock, and it was waiting for purchase 
order paperwork from Apple Computer. They are a month or two 
away from full production quantities. 


The Applel6é board uses DMA (Direct Memory Access) to take 
control of the Apple, shutting down the 6502 and taking over 
the address bus. They have found that the DMA does not 
function properly in Apples earlier than Revision 4, due to 
problems with the bus driver chips on the motherboard. 


The 65816 chips are designed to operate at 8 MHz and are 
currently testing out at 2-4 MHz, but, in order to maintain 
compatibility with the Apple, the Com Log processor is clocked 
at 1 MHz. 


To the '816, the 64K of Apple memory, both RAM and ROM, is bank 
0. Bank 1 echoes the Apple from O-DFFF, but containge space for 
new EPROM at EOOO-FFFF. Banks 2 and 3 are reserved for more 
new EPROM. Banks 4-7 are the on-board RAM, consisting of one 
set of either 64K or 256K chips. Banks 8-255 are available on 
an expansion connector, intended for a future separate memory 
board. There is abort logic to provide an interrupt on access 
to non-existent memory. 


Com Log is selling the boards now with no EPROMs. They are 
working on an operating system and an Applesoft interpreter, 
but those are still some time away. No price has been set for 
the firmware yet. 


The current price of the Applel6é board is $395 with no RAM, 
$450 with 64K, and $795 with 256K. They are not expecting to 
have them available in production quantities until January or 
later, by which time the prices might change. Contact Com Log 
Corporation at 11056 N. 23rd Dr., Suite 104, Phoenix, AZ 
85029. Phone (602) 248-0769. 


That Infoworld story quoted an Apple spokesman as saying that 
the 65816 was to be used in an earlier project that had been 
shelved. That project is being dusted off and revived, now 
that the 65816 chips are really coming through. We've been 
hearing of it as the Apple //x. According to an article in the 
November 19 issue of Infoworld about an interview with Woz, the 
//x is still not a fixed design and will not be ready for 
market until 1986. There's always something new to look 
forward to! 
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New DP18 Square Root Subroutine...........e-BOb Sander~-Cederlof 


Even after bending over backwards to be certain I had the best 
possible SQR implementation in the October AAL, I still found 
some ways to improve it. Last night I found some more 
information in a book called “Software Manual for the 
Elementary Functions", by William Cody and William Waite, 
Prentice-Hall, 1980. 


They pointed out that in general an extra Newton iteration took 
less time than a complex method of getting an initial 
approximation which would be accurate enough to avoid one 
iteration. In other words, using a cubic polynomial like I did 
in October is just not worth it. Not worth the time, and not 
worth the space. 


They further pointed out that it is best to compute the last 
Newton iteration in a slightly different fashion, to avoid 
shifting out the last significant digit. The normal iteration 
computes (x/y + y)*.5. Re-arrangement to yt(x/y-y)*.5 is 
better. Since it takes an extra step, it should only be used 
the last time. 


To see the difference, consider the example below. I have used 
a precision of just 3 digits (instead of 18 or 20)to simplify 
the illustration: 


let x=.253, and y=.5 
then x/y=.506 


x/yty=1.00 (truncating to 3 places) 
(x/yty)*.5 = .500, which is wrong 


x/y-y=.006 
(x/y-y) *.5=.003 
y+(x/y-y)*.5 = .503, which is correct. 


My new SQR version uses a much faster method for getting the 
first approximation. The first two digits of the argument (in 
DAC.HI) must be in the range from 10 to 99. I convert them to 
an index between $02 and $13 by shifting the first digit over 
three, and adding one if the second digit is 5 or more. In 
other words, 10-14 become $02, $15-19 become $03, on up to 
$95-99 becoming $13. Then I use that value as an index into a 
table which gives a good approximation to the first two digits 
of the square root. For example, any number between .10 and 
~19999...9 will get a first approximation of .35. I store 
those two digits into DAC.HI, letting the remaining digits stay 
as they were. This method gives a first approximation which in 
the worst case still has at least the first digit correct. 


It turns out the worst case is for numbers with odd exponents 
and the mantissa=l1, such as 1 (which is .1*10°1), 100 (which is 
-1*10°3), and so on. Even in this worst case, four iterations 
give 20 digits of precision. 


The end result of these changes is a faster and shorter program 
which is more accurate. Here is the new listing: 
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ADC #$CO RE-BIAS EXPONENT 
STA DAC. EXPONENT 


0 
9 
0 BCC .1 EVEN, DON'T MULT BY SQR(10) 
0 #---ADJUST APPROX FOR ODD EXP-~-- 
0 LDA #CON.SQR10 
0 LDY /CON.SOR10 

0 JSR MOVE.YA. ARG. 1 


ioe SSAVE S.NEW SQR ROUTINE 
1920 : SQR (DAC) 

1080 ERR.SQ JMP AS.ILLERR ILLEGAL QUANTITY 
1050 DP.SQR.O RTS 

1060 DP.SQR LDA DAC.EXPONENT 

1070 BEQ DP.SQR.0 SQR(0)=0 

1080 LDA DAC.SIGN 

1090 BMI ERR.SQ MUST BE POSITIVE 
1100 JSR MOVE.DAC.TEMP3 SAVE X 

1110 S---APPROX. ROOT OF .1 = 1-e--n-ee 

1120 LDA DAC.HI CONVERT TWO DIGITS TO BINARY 
1130 AND #$0F SAVE LO DIGIT 

1140 CMP # 01234 OR 56789 

1120 PHP SAVE ANSWER 

1160 LDA DAC.HI GET HI DIGIT 

1170 LSR 

Wo 

1200 LSR 301. 9 

1210 PLP 1234 QR 56789 

1220 ROL $02...$13 

13h0 LDA SQR.TBL,X 

1390 STA DAC.HI 

1260 #---TAKE HALF OF EXPONENT-------- 

1270 LDA DAC. EXPONENT 

1290 SBC #$40 REMOVE OFFSET 

1300 ROR DIVIDE BY TWO (KEEP SIGN) 
1310 PHP SAVE ODD/EVEN BIT 
1320 CLC 

1 

1 

1 

1 

1 

1 

141 JSR DMULT 

1420 #---THREE NEWTON ITERATIONS------ 

1430 .1 LDA #3 

14 STA TEMP3 

070 .2 JSR MOVE.DAC.TEMP2 TEMP2 = Y 
1460 JSR MOVE. TEMP3.ARG GET xX 
1870 JSR DDIV X/Y 

14 JSR MOVE. TEMP2.ARG 

1490 JSR DADD X/Y+Y 
1500 LDA #CON.HALF 

1510 LDY /CON.HALF 

1520 JSR MOVE.YA.ARG. 1 

1530 JSR DMULT (X/Y+Y)/2 
15 DEC TEMP3 ANY MORE? 
1390 BNE .2 aM 

1560 #---ONE MORE NEWTON ITERATION---- 

1570 JSR MOVE.DAC.TEMP2 TEMP2 = Y 
1580 JSR MOVE. TEMP3.ARG GET X 
1590 JSR DDIV xX/Y 

1600 JSR MOVE. TEMP2.ARG 

1610 LDA #$FF 

1620 STA ARG.SIGN 

1630 JSR DADD X/Y-Y 
1640 LDA #CON.HALF 

1650 LDY /CON.HALF 

1660 JSR MOVE. YA.ARG. 1 

1670 JSR DMULT (X/Y-Y)/2 
1680 JSR MOVE. TEMP2.ARG 

1690 P JMP DADD Y + (X/Y-Y)/2 
1720 eHS 35.42.47.52.57.61.65.69.72 
tao CON .SQR10 He (ee cease 
1150 CON . HALF HS 40 0000 Tete aai ite 
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Improvements to 80-column Monitor Dump.........Jan Eugenides 


I found a little bug in the 80-column ASCII monitor dump, as 
presented in Sept 1983 AAL (page 27,28). It worked great in 
the 80-column mode, but if I happened to be in 40-column mode 
when I used the monitor dump command something strange happens. 


Some time ago I incorporated the dump and Steve Knouse's 
monitor patches into an EPROM and installed it in my systen. 
Everything seemed to be working fine, until one day.... I was 
working on a short Applesoft program, and I went into the 
monitor in 40-column mode to check a few program bytes. When I 
returned to Applesoft and listed the program, the first line 
had been changed. Huh? 


I eventually figured out that the problem had to do with the 
tab to column 60. In 40-column mode this will be 20 characters 
beyond the bottom of the screen, which is $80C. 

The solution was to just print a few spaces rather than 
attempting to tab. This approach makes for more compatibility 
among various 80-column devices, too. 

While I was at it, I even squeezed a byte out of the code. 

[And I squeezed some more, saving a total of ll bytes. Bob S-C] 


Here is the modified routine: 


1000 *SAVE S.NEW 80 COL MONITOR DUMP 
1020 ® TO INSTALL 
1030 # 1. ASSEMBLE THIS PROGRAM 
1040 # 2, ENTER THESE MONITOR COMMANDS 
1050 # gc083 C083 FCC9<CC9.CFEM 
1069 * FDBE:C9 FC N FDA6:F N FDBO:F 
1050 # BY JAN EUGENIDES & BOB S-C 
1090) Wewiecccees co cecee secs ee ceeeeeeee 
2h. 1100 CH .EQ $24 
C- 1110 Al -EQ $3C, 3D 
g- 1190 Ad EG SHE’ RS 
02F0- 1180 BUF “EQ $2F6 
FDDA- 1190 PRBYTE .EQ $FDDA 
ED- 1160 COUT EQ $FDED 
FQ48- 1170 PRBLNK .EQ $F948 
1160: @2eeeeebe ee eee eee eeeee 
1190 .OR $FCC9 
1200 : C9 
1210 ee a a pe ee en ea ee 
FCC9- 48 1220 PATCH PHA SAVE BYTE 
FCCA- A5 3C 1230 LDA a COMPUTE INDEX 
FCCE- 1250 TAX 
FCCF- 68 1260 PLA GET BYTE AGAIN 
FCDO- 9D FO 02 1270 STA BUFFER,X SAVE IN BUFFER 
FCD3- 20 DA FD 1280 JSR PRBYTE PRINT ON SCREEN 
FCDb- E8 1290 INX GET # BYTES THIS LINE 
D7- 86 42 1300 STX SAVE IN A4L 
FCD9- E0 10 1310 CPX #$10 END OF LINE? 
FCDB- FO OA 1320 BEO . .++YES, PRINT ASCII CHARS 
FCDD- A5 3C 1330 LDA Al ...NO, SEE IF END OF RANGE 
FCDF- C5 3E 1340 CMP A2 
FCE1- A5 3D 1350 LDA Al+1 
FCE3- E5 3F 1300 SBC A2+1 
FCE5- 90 18 1370 BCC .4 ...NO, RETURN 
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FCE7- 20 48 F9 1380 .1 JSR PRBLNK PRINT 3 SPACES 
FCEA- A200 1 20 LDX # PRINT ASCII CHARS FROM BUFFER 
FCEC- BD FO 02 1860 .2 LDA BUFFER,X GET CHAR 
FCEF- 09 80 1410 ORA #$80 MAKE NORMAL VIDEO 
FCF1- C9 AO 1420 CMP #$A0 TRAP CONTROL CHARS 
FCF3- BO 02 1430 BCS . ~~ NOT CONTROL CHAR 
FCF5- A 14 LDA #3AE CTRL, SUBSTITUTE *." 
FCF7- 20 ED FD 1450 3 JSR COUT PRINT CHAR 

FA- E8 1460 INX NEXT 
FCFB- E4 42 1470 CPX A4 END OF LIST? 

FD- 90 ED 1480 BCC .2 ~~ NOT YET 
FCFF- 60 1490 .4 RTS RETURN 


Note the directions for installing the routine in a RAM card 
copy of the monitor, in lines 1020-1060. "“$C083 C083 
FCC9<CC9.CFFM" write enables the RAM area and copies the dump 
code over the top of cassette I/O stuff. "“S$FDBE:C9 FC N FDA6:F 
N FDBO:F" patches the monitor dump command code to call the new 
patch, and also patches to print 16 bytes per screen line. 


If you want to use this routine in 40-column mode only, change 
line 1240 from “AND #SOF" to "AND #$07", line 1310 from “CPX 
#$10" to “CPX #$08", and leave out the patches at FDA6 and FDBO 
in the previous paragraph. 


Generating Cross Reference Text File with DISASM...Bob Kovacs 


I received a phone call from Don Lancaster the other day. He 
had been using DISASM to probe the mysteries of AppleWriter, 
and was now preparing to document his findings, Although he 
liked the way DISASM generated a triple cross reference table, 
he preferred to have it in a form that could be used by his 
word processor (that is, on a text file). The cross reference 
table generated by DISASM is normally output to either the 
screen or a printer, so Don's only alternative was to manually 
type it into his word processor. There were hundreds of 
labels.... 


It turned out that a simple patch to DISASM will do the trick. 
All that is necessary is to change the JSR PA882 which normally 
generates the source code listing to JSR XREF, 


The following patch outputs the cross reference table to your 
file after responding “Y"“ to the prompt “GENERATE TEXT FILE?": 


$09A1:20 Fl OA 


Back in the April issue of AAL, I described a method of using 
EXEC files with DISASM. A patch was required to the “YES/NO” 
routine to input the response via KEYIN rather than directly 
from the keyboard. Although the patch I gave in April works, 
KEYIN uses the Y-register as an index to the screen. My patch 
did not always wind up in the right place. So I have expanded 
the patch as follows: 


$0C57:EA A4 24 20 18 FD 09 80 


I hope that this has not caused any inconvenience. 
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Macro Information by Example....ccccccccccceeee Sandy Greenfarb 


The following are three examples of macro use which I have 
found interesting and informative. 


The first example, TEST, shows that you can use parameters in 
places other than the operand field. In this case, one of the 
parameters becomes part of an opcode name. 


SETD shows how a macro can make more efficient code. If both 
bytes are the same, there is no need to have two LDA 
instructions. 


MOVD copies two bytes from one variable to another. If you use 
MOVD to move two bytes one byte higher in RAM, MOVD will 
reverse the order the bytes are moved so that the data are not 
clobbered. 


1 
1 
1 
1 Cusiecm newman eee emoeemneaenas 
1 @ 
1050 # PARAMETERS CAN SUBSTITUTE ANYWHERE, 
19 0 * EVEN IN OPCODES 
1080 .MA TEST VALUE , CONDITION , LABEL 
1090 CHP 1 
1100 Bl2 J3 
1110 EM 
1120 ® } 
0800- 1130 >TEST #3,CC, SMALLER 
0800- C9 03. +=: 0000 CMP #3 
0802- 90 07 0000> BCC SMALLER 
O80h- 1140 >TEST TYPE, EQ, SAME 
0804- CD 09 08 0000> CMP TYPE 
0807- FO 01 0000>, BEQ SAME 
0809- 23 1160 TYPE .DA #35 
O80A- 1170 SAME NO 
O80B- EA 1180 SMALLER NOP 
; ae 2 SP SP SP Gp Ge ak E> SP SD GD ED 6S OF &D OD © SSF OD SS OES OE SS SS SF SS a a 
1219 ® MACROS CAN SIMPLIFY CODE FOR EFFICIENCY 
1230 »MA SETD VALUE, VARIABLE 
12 LDA #)1 LO-BYTE 
1250 St 
1260 .DO }1/ 96257-11 ARE LOW AND HI EQUAL? 
1270 LDA /]1 
1280 ELSE 
1290 @# HI = LO-BYTE 
1300 FIN 
1310 STA J2+1 
1320 _M 
1330 & 
o80c- 1340 >SETD $1234, VALUE 
O80C- A9 34 ——«0000> LDA #$1234 LO-BYTE 
O80E- 8D 1E 08 0000> 


A VALUE 
0000> DO $1234 /256 #257-$1234 ARE LOW AND HI EQUAL? 
O811=- AQ 12 peas na /$123% : 


| 0000> -FIN 
08 13- 8D 1F 08 0000> STA VALUE+1 
08 10— 1350 >SETD $2323 , VALUE 
0816= AQ 23 0000> LDA #$2323 LO-BYTE 
oe ey ee 00005 po. $2323/ 2568257 $2323 ARE LOW AND HI EQUAL? 
0000> Best 
0000> ® HI = LO-BYTE 
0000> -FIN | 
081B- 8D 1F 08 *Se0-8 STA VALUE+1 
08 1E- 1370 VALUE .BS 2 
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1 80 Beowwnn ene weew ewww ee ww ew ooewwoone 
loo # 
1410 ® MACROS CAN PREVENT PROGRAMMING MISTAKES 
1420 ® SUCH AS OVER-WRITING WHEN YOU COPY 
1430 ® ONE VARIABLE INTO ANOTHER. 
1450 .MA MOVD VAR1,VAR2 
1460 .DO J2-J1-1 
1470 LDA ]1 NO OVERLAP 
1480 STA ]2 
14.90 LDA ]1+1 
1500 STA J2+1 
1510 ELSE 
1520 LDA )1+1 THIS CODE BUILT WHEN THE 
1530 STA ]2+1 VARIABLES OVERLAP 
15 LDA ]1 
1550 STA J2 
1560 FIN 
1570 .EM 
1580 
0820- 1590 1,$22 
0000> DO, onze. 11° 
0820- A5 0000> NO OVERLAP 
0822- 85 0000> Sra 
O824- A5 12 0000> LDA ne 
0826- 85 23 0000> STA $22+1 
0000> . ELSE 
0000> FIN 
0828- 600 SMOVD $28,V 
0000> .DO V VALUE=$38-1 
0828- AS 28 — 0000 LDA NO OVERLAP 
082A- 8D 1E 08 0000> STA aoe OE 
O82D- A5 29 ~0000> LDA $28+1 
O82F- 8D 1F 08 0000> STA VALUE+1 
0000 -BLS 
0000> 
08 32- 1610 1,$12 
0000> DO me. Ww 
00005 : | 
0832- A5 12 0000> LDA $1141 THIS CODE BUILT WHEN THE 
0834- 85 13 0000> STA $1241 VARIABLES OVERLAP 
0836- A5 1 0000> LDA $11 
0838- 85 12 0000> STA $12 


E-Tech Services 
EPROM Burning, Erasing, & Programming Services 
Specializing in 2716, 2732, 2764, & 27128's for 


- Mountain Computer ROM plus boards 
- Hollywood Hardware Ultra Rom boards 


- SCRG quikLoader Card 
- Patches and upgrades to your Apple Roms 
- Custom applications and programming 


Standard burning fee - $5.08 plus $1.08 S&H 


Call or Write 
for Details 
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Turning Bit~Masks into Indices............eBOob Sander-Cederlof 


A few months ago I presented several ways to turn an index 
(0-7) into a bit mask (01, 02, 04,...,80). We got a lot of 
feedback, including some faster and better programs. Bruce 
Love suggested the possibility of the reverse transformation. 


According to Bruce, who is a high school] teacher in New 
Zealand, the method which uses the fewest bytes is the one I 
show in lines 1390-1450. In order to be fair in comparing 
different algorithms, I am going to count the RTS opcodes both 
for bytes and for cycles. With this in mind, Bruce's routine 
takes 8 bytes and from 16 to 65 cycles. This is certainly the 
smallest way, and it really is pretty fast. 


Bruce mentioned that he had written several other programs to 
solve the same problem: one used the X-register, took 26 bytes 
with an average of 33.5 cycles; another without useing X or Y 
took 28 bytes and an average of 39 cycles. Unfortunately, he 
did not include a copy of either of these. 


I worked out four more methods, shown in the listing after 
Bruce's. I wrote a test driver which is in lines 1000-1310. 
The test driver calls each routine, printing the results of 
each, for all possible values of the bit-mask. 


The following table summarizes the data for the five 
algorithms: 


# of cycles 
bytes min max ave 


SMALLEST .WAY 8 16 65 40.5 
WAY .WITH .X 26 25 42 33.5 
WAY .WITHOUT.X 23 14 30 22 


ANOTHER.WAY.W... 32 14 24 18.375 
STRAIGHT.TEST... 33 14 27 #18.5 


If the SMALLEST.WAY is not fast enough, I would probably go 
with the one named WAY.WITHOUT.X. It is almost as fast as the 
fastest, and is the shortest of the longer routines. Of 
course, some of you may come up with better and faster ones.... 


1000 SSAVE S.MASK --> INDEX 

O800- AO 01 1020 TEST  LDY #$01 
0802- 98 1030 «1 ‘ 
0803- 20 DA FD 1040 JSR $FDDA 
0806- 9 1050 TYA 
0807- 20 3C 08 1060 JSR SMALLEST. WAY 
OBOA- 20 32 08 1070 JSR HEX 
O80D- 98 1080 TYA 
O80E- 20 44 08 1090 JSR WAY.WITH.X 
0811- 20 32 08 1100 JSR HEX 
0814- 98 1110 TYA 
0815- 20 5E 08 1120 JSR WAY.WITHOUT. xX 
0818- 20 32 08 1130 JSR HEX 
OBIE 38 5 08 1150 ISR ANOTHER.WAY.WITHOUT 

- e e ox 
OBiF= 20 43 08 Jeo JSR HEX 
0822- 98 1170 TYA 
0823- 20 95 08 1180 JSR STRAIGHT. TESTING. WAY 
0825- 20 32 08 1190 JSR 
0829- 30 BE FD 1200 JSR $FD8E 
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082C- 98 1210 TYA 
O82D- OA 1220 ASL 
O82E- A8 1230 TAY 
O82F- 90 D1 12 BCC .1 
0831- 60 1250 . RT 
0832- 1270 HEX PHA 
0833 Ag AD 1360 LDA ¢"—" 
eT et gana cir Sr 
0839- 4C DA FD PE . JMP $FDDA 
1330 ® WAY WITH FEWEST BYTES 
1340 @ BYTES 
1350 MIN: 16 CYCLES 
1360 # MAX: 65 CYCLES 
19 * AVE: 40.5 CYCLES 
1390 SMALLEST . WAY 
083C- a2 08 1860 LDX #8 
O83E- CA 1410 .1 DEX 
O83F- OA 1420 ASL 
i: O- 90 FC 1430 BCC .1 
O842— BA 14 TXA 
0843- 60 1450 ' RTS 
14 0 # FASTER WAY USING X-REGISTER 
1190 @ MIN: 25 CYCLES 
1500 # MAX: 42 CYCLES 
1510 ® AVE: 33.5 CYCLES 
1 5 20 @ PD = EP OD > Ge Gs OD Ge > GP G2 GE hb CED ED ED GP ED EP GP GP GP ow Ow ap G2 Ge a 
1530 WAY. WITH.X 
O844- A200 =«15 KEEP INDEX IN X 
0846- C9 10 1590 CMP #$10 80-40-20-10 / 08-04-02-01 
084 - 06 15 0 BCC e ery | 4 2,1 
O84a- SA 1570 LSR . 80,40, 20, 10 
OB4B- A 1580 LSR SHIFT OVER TO 8,4,2,1 
a 
O84E- a2 04 1610 LDX #4 AND BUMP INDEX BY 4 
0850- C9 O4 1620 1 CMP #$04 08-04 / 02-01 
(i ie an ie 
0855- 4A eae LSR SHIFT OVER TO 2,1 
0856 - EB 1660 INK AND BUMP INDEX BY 2 
i nn ca 
O85B- EB 1700 INX -* "02, BUMP INDEX 
O85C- 8A 1710 .3 TXA GET RESULT 
085D- 60 1720 RTS 
170 * WAY WITHOUT USING X-REGISTER 
1420 & MIN: 14% CYCLES 
1770 ® MAX: 30 CYCLES 
7 os AVE: 22 CYCLES 
1800 WAY WITHOUT x 
085E- By i 1810 LSR — 40-20-10-08-04-02-01-00 
0863- FO OD 1840 BEQ .3 .. 4, SHOULD BE 3 
0865- 4A 1850 LSR 20-16-08-04 
0866- 4A 1860 LSR 10-08-04-02 
0867- 4A 1870 LSR 08-04-0201 
opto. ce Oh «4890 LSE gy ee 
086B- 90 02 ~=—«- 1900 BCC .1 2,1,0 INTO 6,5,4 
086D- 49 02 1910 LDA #2 4’ INTO 7 
OB. ta 1890 22 — 
0872- E9 01 1980 3 SBC #1 4 INTO 3 
O874- 60 1950 RTS 
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1 60 Giimieani et meme itea eased enue ede en meres ee 
1970 # ANOTHER WAY WITHOUT X-REGISTER 
1990 ®# MIN: 14 C ¥CLES 
2000 # MAN: on CYCLES 
2010 ® AVE: 18. Sis CYCLES 
2030 ANOTHER -WAY . WITHOUT. X 
0875- C9 08 20K0 CMP #$0 80-40-20-10-08-04-02-01 
08 T= 9 1A 2050 BCC e ooe4,2 1 
0879- FO 16 2060 BEQ .4 ...8, SHOULD BE 3 
087B- C9 40 ~—«-.2070 CMP #$40 
087D- 90 08 $2080 BCC . +0220, 10 
08 Fe FO 03 2090 BEQ at eee 
O881- 49 07 2100 LDA #7 
0 83 2110 
O88h- A9 06 «= 2120 1 LDA #6 
0886- 6 2130 RTS 
0887- C9 20 = 2140 -.2 CMP #$20 
0889- F 03 2190 BEQ . 
088 49 2160 LDA # 
O88D- 2170 RTS 
OB 8E- - 4905 2180 3 LDA #5 
2190 RTS 
SH § g9 02 © 2200 4 SBC #2 
8g3- AA 2210 .5 LSR 
2220 RTS 
sean Gone ce cn etoameoewanmeaccoceeeuoae 
2240 ® STRAIGHTFORWARD TESTING APPROACH 
2250 @ 33 
2260 MIN: 14 CYCLES 
2270 # MAX: 21 YC 
2280 ®@ AVE: 18.5 CYCLES 
2290 Qik ee nme ccm enema 
2300 STRAIGHT. TESTING. WAY 
0895- C9 08 2310 CMP #$08 
0897- 0 1B 2320 BCC «5 
0899- FO 16 2330 BEQ . 
089B- C9 20 ~=_ 230 CMP #$20 
089D- 90 OF 2350 BCC . 
O89F- FO OA 2360 BEQ . 
O8A1- C9 80 2370 P #$80 
08A3- 90 03. 2380 BCC . 
a cn nk 
oh -~A9 06 2410.1 LDA #6 
iy ee CES Sy are 
OBAD- 60 Sung °° RTS 
O8AE- AQ O04 2450 3 LDA #4 
oo Bie 86 03 Ba 0 CDA #3 
ORB = 83 2) RTS 
O8Bh- 4A 2490 .5 LSR CONVERT 4,2,1 TO 2,1,0 
O8B5- 60 2500 . RTS 


Apple //e Reference Manual Source 


We have located a mail- or phone-order source for the Apple 
Manuals! A reader in New York City phoned to let us know that 
the McGraw-Hill Bookstore there carries the Apple publications. 
Apparently the bookstore is also a computer store and an Apple 
Dealer. The address is McGraw-Hill Bookstore, 1221 Sixth Ave., 
New York, NY 10020. The phone number is (212) 512-4100. 


Apple Assembly Line is published monthly by S-C SOFTWARE CORPORATION, P.O. Box 
280300, Dallas, Texas 75228. Phone (214) 324-2050. Subscription rate is $18 
r year in the USA, sent Bulk Mail; add $3 for First Class postage in USA, 
eanada, and Mexico; add $12 postage for other countries. Back issues are 
available for $1.80 each (other countries add $1 per back issue for postage). 


All material herein is copyrighted by S~-C SOFTWARE CORPORATION, all rights 
reserved. (Apple is a registered trademark of Apple Computer, Inc.) 
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